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I 

1.0 INTRODUCTION 

Given the temperature and salinity at depth, it is desired to describe 
the density field. In oceanography, the reciprocal of the density, called the 
specific volume, is generally used. For convenience in application, this is 
expressed as an anomaly, i.e. the difference between the actual specific 
volume and the specific volume of water of salinity 35 5»»at C. 

2.0 METHOD 

The techniques described in Processing Oceanographic Data by 

E. C. LaFond (1951, U.S. Hydrographic Office Publication #614) were used, 

corrected according to the original publication by Ekman in 1908 (Ref . in 

LaFond) . 

The specific volume, 0^» , is computed as follows: 

s, r,p 

(t is the temperature in C 

p is the pressure in decibars, equivalent to the depth (d) in meters 
s is the salinity in f*+ ) 
First, the following quantities are computed: 



A t = 10" 3 t 

B = 10" 6 t 
t 



["4.7867 - 0.098185t + 0.0010843t^J 
[1.8.030 - 0.8164t + 0.01667t 2 J 



C = 28.33 - 0.551t + 0.004t 2 
t 

D fc = 105o5 + 9.50t - o 158t 2 

E t = 147.3 - 2o72t + 0.04t 2 

F t = 32.4 - 0.87t + 0.02t 2 

and G = 4886 > 2 27 

1 + 10" p (.l83) 
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Then 0^= -0.069 + 1.4708 (s - 0.030) - 0.00157 (s - 0.030)2 + 

1.805 1.805 



0.0000398 (s - 0.030) 3 *1 
1.805 



^t = - (t - 3.98) 2 
503.57 



ft + 283 ] 
\t + 67.26 J 

^s^o = Z t + (°o + 0.1324) | 1 - A t + B t ( 0^ - 0,1324)1 *2 

and 

eCs,t,o = 1 

l + iFy 

s,t,0 
The specific volume ^ s,t,p is found: 

lo5 <*s,t,p = < s^t,o j 1q5 " 10 " 4 P J G " tC t + 10 " 4p (Dt " 10 " 4p X lo5t) 

+ ( &€> - 28) (-E + 10~ 4 pF t ) 

10 t 



VIa _oq\2 n, q _ n i +. _ in "4. 

28) 



+ ( % - 28) 2 (4.5 - O.lt - 10~ 4 p(l. 8-0. 06)1 

10 



Then 10 5 0<:3 5> o j p - °35,0,0 j 1q5 " 10 " 4 P [} + 105 ' 5 X 10 " 4 P " < ^35,0,0 " 

• (14.73 - 3.24 X 10" 4 p)|( 



*1 The value of s - 0.030 represents the CHLORINITY, defined according to 

1.8050 
the determinations of Knudsen in 1901 (Ref . in LaFond) „ 

*2 Cj is more commonly known as 0\_- Printing out C^. would involve 
s,t,o J ^ t ° . t 

only a small modification to the program. 
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where G is defined above and 

^35,0,0 " °- 972643 ' ^35,0,0 " 28 - 126 
Finally, the specific volume anomaly, 1CP Q , is computed: 

s,t,p " 10 ^35,0,p 



10 5 & = 10 5 oC . r _ - 10 5 c< 



10 t) is printed and punched out. 

3.0 RESTRICTIONS 

a) The typewriter is used for direct input of data and output 
of results. The punch is also used for output of results. 

b) The data for a station must be in order of increasing depth. 

c) The program uses subroutines AN-002 and AN-015. 

4.0 USAGE 

a) The program occupies 0001 - 1227. 

b) Typewriter tabs should be set up for 4 columns of data 
(e.g. left margin at 10 and tabs at 25, 40, 55, and right margin 
greater than 70. Set toggle switch on typewriter to TAB. 

c) Operating Instructions 

1) Read in and verify program tape 

2) Press START 1. A location counter setting of 1247 will be 
punched onto the tape. Typewriter will type STATION. 

3) Type in station number (must have 4 digits) Station number 
will be punched on tape, and headings D, T, S, DELTA will print out„ 

4) Machine will wait for data input with location counter at 
7775.1. Type in the depth, followed by a tab, and then type in the tem- 
perature, and the salinity, tabbing after each entry. After the salinity 
is entered, computing will start, and 10 X specific volume anomaly will 
be punched out. 



RECOMP II USERS 1 PkOGRAM NO. 1125 4 

NOTE: If an error is made in typing data, press slash (/) key, and computer 
will be re-set to accept the corrected depth, temperature, and salinity. 
Pressing START 3 will also set computer up for corrected data. 

5) Repeat step 4 until the end of the station is reached. At 
the end of a station, press error reset and clear buttons. Then press 
START 2. An ending will be punched on tape. 

6) For more stations, repeat procedure from step 2. 

d) The punched tape output from this program may be used as input 
to the WHOI dynamic heights program. To suppress this punched output the 
following changes should be made to the program: 

Locations 0355: -0000000 + 5703600, 0452: + 5704530 - 0000000 and 
0454: + 5704621 + 7477600. 

5.0 EXAMPLE 

Sample problem: 

see enclosed page with typewriter input and output shown for 
Crawford 0421 

6.0 CODING INFORMATION 

a) Constants: The number of constants is large, so no list is made 
here. See the symbolic program listing for constants. 

b) Subroutines 

AN-002 0500 - 0637 
AN-015 0650 - 1127 

c) Temporary storage for input: 

d (depth) in locations 0074 -75 
t (temperature) in locations 0160 -0161 
s (salinity) in locations 0076 -77 
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Temporary storage for output: 

d (depth) in locations 0474 - 75 
Delta (10 X specific volume) in locations 0130 - 31 
d) Timing estimates: 

The average timing for a typical set of station data is: 

Printing of headings and entering of station number ...... .8 sec 

Entering of one set of d,t,Sooo...o..o.o.oo........ ...... ..7.4 sec 

Computation of 6 and print-out of b .,.,,„.,.,<> 5,7 sec 

Punch-out of d and O .., ........ .. tl) ......o.o,...o. 2.2 sec 

For one entry of d,t,s , .,,.15,3 sec 

Total time to run average station of 25 entries = 390.5 sec 

= 6,5 min 
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STATION- (A2 1 



U~ 




;-'T"— ;- 

"22; 21 ' 

22.10. 

"21 ;-02- 

-■-rtvfe- 

12.64 

to.03 

07.82 
- Obi 05- 

o4.84 
-o4to6- 

03.47 
©3^30- 

-03.-43- 

03.33 

-93*38- 
03.24 

02.99 




~s 

36.664 

Itp 

35.899 

-35.-421 

34.624 
34.584 

-34.428 
3^.364 

■34.358 
34.403 
-34.563- 

34.742 

34.828 

34.891 

34.944 
34.946 
-34.944- 
34.940 

-34.933- 
34.921 

-34-.B96- 
34.8o4 



DELTA" 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



00010 + 72 00370 START 1 TYC 

1 + 57 04630 TRA 

00020 + 57 04641 START 2 TRA 

1 00 00000 



00030 


+ 


72 


00370 


START 3 


TYC 


LS 


1 


+ 


72 


00100 




TYC 


CR 


00040 


+ 


72 


00330 




TYC 


FS 


1 


+ 


57 


03670 




TRA 


Data 


00050 














1 














00060 








10M 4 






1 














00070 














1 














00100 








10M 3 






1 














00110 














1 














00120 








FL 1 






1 














00130 














1 















LS To start program out at 
PATCH 7 beginning of new station 
PATCH 8 For punching blanks and 
halt on tape at end of 
station. 

For restarting when an 
error in typing in data 
has been made (Error return 
from INPUT automatically 
returns to here) 



10' 4 = +0 o 0001 



RECOMP II USERS' PROGRAM NO. 1125 



PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



00540 

1 
00550 

1 
0.0560 

1 
00570 

1 
00600 

1 
00610 

1 
00620 

1 
00630 

1 
00640 

1 

00650 

. 1 

00660 

1 
00670 

1 



+ 



+ 



+ 



+ 



00 


00000 


00 


00010 


26 


00700 


33 


03020 


75 


02040 


47 


32171 


03 


32171 


27 


32171 


44 


14500 


15 


02151 


00 


OOOQO 


00 


00170 


00 


00000 


00 


00041 


00 


00000 


00 


00041 


00 


00000 


00 


00020 



iop- 



RloO 



STATI0N 



HEAD 



+1 



+2 



LB IND 



LB INT 



LB INS 



R2 o 



10 +5 = 100,000.0 
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PROGRAM TITLE; 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



00700 

1 
00710 

1 
00720 

1 
00730 

1 
00740 

1 
00750 

1 
00760 

1 
00770 

1 
01000 

1 
01010 

1 
01020 

1 
01030 

1 



00 
00 



00000 
11500 



LC0N 



ERAS 



+1 



STNN0 



SIGMA 



PZE 
MZE 




C0N 



depth 



salinity 
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PROGRAM TITLE: SPECIFIC VOLUME ANOMALY 

ABSOLUTE LOCATION 

LOCATION S OPRN ADDRESS SYMBOL S OPRN ADDRESS REMARKS 

01040 B t 

1 
01050 

1 
01060 C 



t 



1 
01070 

1 
01100 D 

1 
OHIO 

1 
01120 E 

1 
01130 

1 
01140 F 

1 
01150 

1 
01160 

1 
01170 

1 



t 



t 



t 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 

01200 

1 
01210 

1 
01220 

1 
01230 

1 
01240 

1 
01250 

1 
01260 

1 
01270 

1 
01300 

1 
01310 

1 
01320 

1 
01330 

1 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 

ALPHA s,t,0 



ADDRESS 



REMARKS 



SUM 



SIGMA SQ 



ALPHA s,t,p 



DELTA 



ALPHA 35, p 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



01340 
1 

01350 

1 
01400 

1 
01410 

1 
01420 

1 
01430 

1 
01440 

1 
01450 

1 
01460 

1 
01470 

1 
01500 

1 



SIGMA STO 



BLOCK 1 



DEC 



DEC 



DEC 



DEC 



BL0CK 2 



DEC 



Note - This is value of (Ejj 
and could be rewritten to 
include in print out of data 



+0,030 



+1.805 



+0.0000398 



+0.00157 



+1.4708 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



01510 

1 
01520 

1 
01530 

1 
01540 

1 
01550 

1 
01560 

1 
01570 

1 
01600 

1 
01610 

1 
01620 

1 
01630 

1 
01640 

1 



+ 


30 


77600 


+ 


07 


77700 


+ 


04 


77720 


+ 


07 


77600 


+ 


04 


77740 


+ 


35 


01020 



DEC 



-0.069 



DEC 



Temp. Storage 



temperature 



P0LY 



FCA 


7760 


FMP 


7770 


FAD 


7772 


FMP 


7760 


FAD 


7774 


FST 


■A* 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



01650 

1 
01660 

1 
01670 

1 
01700 

1 
01710 

1 
01720 

1 

01730 

1 

01740 

1 
01750 

1 
01760 

1 
01770 

1 



+ 
+ 

+ 
+ 
+ 

+ 
+ 
+ 
+ 
+ 
+ 



00 
03 
50 
57 
00 
00 
30 
07 
35 
07 
07 
35 



77671 
00570 
04171 
04131 
00000 
00060 
01600 
77700 
77760 
77700 
01040 
01040 



+ 30 77760 
+ 07 01020 
+ 35 01020 



+ 


30 


01000 


+ 


06 


77720 


+ 


35 


77760 


+ 


07 


01040 


+ 


06 


01020 


+ 


04 


77740 


+ 


57 


04460 



CTER 1 



BL0CK 3 



CLA 

SUB 
TZE 
TRA 
PZE 
MZE 
FCA 
FMP 
FST 
FMP 
FMP 
FST 

FCA 
FMP 
FST 

FCA 
FSB 
FST 
FMP 
FSB 
FAD 
TRA 



7767.1 

R1.0 

0UT 

ST UP 



6 

t 

7770 

7776 

7770 

B t 
B t 

7776 

A„ 



B fc = t x 10 



-6 



(18.030 - o 8164t + 0.1667t 



A t = 10" 3 t (4.7867 
-0«098185t + 0. 0010843 1 2 ) 



SIGMA 
7772 
7776 
B 



( <T|J - o 1324) 



7774 1 - A t + B t ( (T - 0.1324) 
PATCH 2 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



02000 

1 
02010 

1 
02020 

1 
02030 

1 
02040 

1 
02050 

1 
02060 

1 
02070 

1 
02100 

1 
02110 

1 
02120 

1 
02130 

1 



+ 


30 


01600 


+ 


04 


77700 


+ 


35 


77700 


+ 


04 


77720 


+ 


05 


77700 


+ 


35 


77700 


+ 


30 


01600 


+ 


06 


77740 



BL0CK 4 



DEC 



DEC 



DEC 



BL0CK 5 



10" 3 = +0.001 



+0.1324 



+1.0 



ERASABLE 



FCA 


t 




FAD 


7770 


t + 67.26 


FST 


7770 




FAD 


7772 


t + 283 


FDV 


7770 




FST 


7770 


(t + 283) 


FCA 


t 




FSB 


7774 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL 



OPRN 


ADDRESS 


REMARKS 


FST 


7772 


t - 3.98 


FMP 


7772 


(t - 3,98) 2 


FDV 


7776 


(t - 3o98) 2 / 503.570 


FMP 


7770 


* 


FAD 


ERAS 




FST 


SIGMA 




TRA 


PATCH 1 





02140 

1 
02150 

1 
02160 

1 
02170 

1 
02200 

1 
02210 

1 
02220 

1 
02230 

1 
02240 

1 
02250 

1 
02260 

1 
02270 

1 



+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 



35 
07 
05 
07 
04 
35 
57 
00 



77720 
77720 
77760 
77700 
00710 
01340 
04420 
00000 



BL0CK 6 



DEC 



DEC 



DEC 



DEC 



+67.26 



+215.74 



+3.98 



-503.570 
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PROGRAM TITLE: 



SPECIFIC VOLUME ANOMALY 



ABSOLUTE 
LOCATION 


S 


OPRN 


ADDREi 


02300 


+ 


66 


02400 


1 


+ 


30 


00740 


02310 


+ 


07 


00060 


1 


+ 


35 


00740 


02320 


+ 


07 


77700 


1 


+ 


04 


77720 


02330 


+ 


35 


77660 


1 


+ 


30 


77740 


02340 


+ 


05 


77660 


1 


+ 


06 


77760 


02350 


+ 


35 


01160 


1 


+ 


57 


04241 


02360 
1 

02370 
1 

02400 








1 








02410 








1 








02420 








1 








02430 








1 








02440 








1 









LOCATION 

SYMBOL S OPRN 



ADDRESS 



REMARKS 



BL0CK 7 



CTV 
FCA 
FMP 
FST 
FMP 
FAD 
FST 
FCA 
FDV 
FSB 
FST 
TRA 



BL0CK 8 



DEC 



DEC 



DEC 



BL0CK 8 

P 
10M 4 

p 10 ~ 4 p ~p 

7770 0.0000183p 

7772 

7766 

7774 

7766 4886/1 + 0.0000183p 



7776 
G 

MAIN 3 



(4886/1 + 0„0000183p) - 227 



ERASABLE 



+0.183 



+1.0 



+4886 oO 



RECOMP II USERS' PROGRAM NO. 1125 



19 



PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



02450 

1 
02460 

1 
02470 

1 
02500 

1 
02510 

1 
02520 

1 
02530 

1 
02540 

1 
02550 



+ 


34 


01600 


+ 


07 


01060 


+ 


04 


01160 


+ 


35 


01220 


+ 


30 


00740 


+ 


07 


01600 


+ 


07 


77720 


+ 


04 


01100 


+ 


07 


00740 


+ 


04 


01220 


+ 


35 


01220 



1 


+ 


30 


01000 


02560 


+ 


06 


77740 


1 


+ 


05 


77760 


02570 


+ 


35 


01240 


1 


+ 


30 


00740 



BL0CK 9 



DEC 



+227.0 



FCS 


t 






FMP 


C t 






FAD 


G 






FST 


SUM 




G - tC t 


FCA 


P 






FMP 


t 






FMP 


7772 




-1.5t x 10" 4 p 


FAD 


D t 






FMP 


P 






FAD 


SUM 






FST 


SUM 




G - t C t + 10~ 4 pD 
- 10" 8 1.5 p 2 t 


FCA 


SIGMA 







FSB 


7774 






FDV 


7776 






FST 


SIGMA 


Sq 


L 


FCA 


P 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



02600 

1 
02610 

1 
02620 

1 
02630 

1 
02640 

1 
02650 

1 
02660 

1 
02670 

1 
02700 

1 
02710 

1 
02720 

1 
02730 

1 



+ 
+ 
+ 
+ 



07 01140 BL0CK 10 FMP 

06 01120 FSB 

07 01240 FMP 
57 04260 TEA 

DEC 



DEC 



DEC 



SIGMA Sq 
MAIN 4 



-1.5 



+28.0 



+10.0 



+ 


30 


01600 


BL0CK 11 


FCA 


t 




+ 


07 


77700 




FMP 


7770 


0.06t 


+ 


04 


77720 




FAD 


7772 


1.8 - 0.06t 


+ 


07 


00740 




FMP 


P 




+ 


35 


77660 




FST 


7766 


10" 4 p (1 8 


+ 


34 


77740 




FCS 


7774 




+ 


07 


01600 




FMP 


t 


-0.lt 


+ 


04 


77760 




FAD 


7776 


+4.5 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



02740 

1 
02750 

1 
02760 

1 
02770 

1 

03000 

1 
03010 

1 
03020 

1 
03030 

1 
03040 

1 
03050 

1 
03060 

1 
03070 

1 
03100 

1 
03110 

1 
03120 

1 
03130 

1 



06 



77660 



+ 07 01240 
+ 07 01240 
+ 57 04301 



+ 


66 


03200 


+ 


34 


00740 


+ 


07 


77700 


+ 


04 


77720 


+ 


35 


77660 


+ 


30 


77740 


+ 


06 


77760 


+ 


07 . 


77660 



FSB 

FMP 
FMP 
TRA 



BL0CK 12 



DEC 



DEC 



DEC 



DEC 



BL0CK 13 



7766 &.5 - O.lt - 10" 4 p 
(1.8 - 0„06t)J 

SIGMA Sq 

SIGMA Sq (<T Q - 28 )2 |~ J 
10 

MAIN 5 

ERAS. STORAGE 



+0.06 



+1.8 



+0.1 



+4.5 



CTV 


BL0CK 14 


FCS 


P 




FMP 


7770 




FAD 


7772 




FST 


7766 


14.73 - 3.24 x 10" 4 p 


FCA 


7774 




FSB 


7776 


( ^35,0,0 - 28) 


FMP 


7766 


( ^35,0,0 - 28) (14.73 
- 0.000324p) 



RECOMP II USERS 1 PROGRAM NO. 1125 



22 



PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPEN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



03140 



03150 

1 
03160 

1 

03170 

' 1 

03200 

1 
03210 

1 
03220 

1 
03230 

1 
03240 

1 
03250 

1 
03260 

1 
03270 

1 
03300 



1 
03310 

1 
03320 

1 
03330 

1 
03340 

1 



+ 
+ 



66 
57 



03400 
04351 



+ 


30 


00740 


+ 


07 


77720 


+ 


06 


77760 


+ 


04 


01160 


+ 


57 


04500 


+ 


04 


77700 


+ 


07 


77740 


+ 


35 


01320 


+ 


30 


01260 



CTV 
TRA 



BL0CK 14 DEC 



DEC 



DEC 



DEC 



35 77760 BL0CK 15 FST 



BL0CK 16 
MAIN 6 



ERASABLE STORAGE 



+3.24 



+14.730 



w 35,0,0 = +28.126 



+28.0 



7776 +( "35,0,0 - 28) 

(14.73 - 3.24 x 10~4p) 



FCA 


P 


FMP 


7772 0.01055p 


FSB 


7776 


FAD 


G 


TRA 


PATCH 3 


FAD 


7770 


FMP 


7774 


FST 


ALPHA 35p 10 5 ^35,0,? 


FCA 


ALPHA stp 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



03350 + 
1 + 

03360 + 

1 
03370 

1 
03400 

1 
03410 

1 
03420 

1 
03430 

1 
03440 

1 
03450 

1 
03460 

1 
03470 

1 



06 
35 

57 



01320 
01300 

04361 



FSB 
FST 

TRA 



BL0CK 16 



DEC 



DEC 



DEC 



ALPHA 35p 

DELTA 10 5 ( 0*s,t,p - °^55,o,p) 
105£ 

MAIN 7 



io- 



+105.5 



+0.972643 



ERASABLE STORAGE 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



03500 

1 
03510 

1 
03520 

1 
03530 

1 
03540 

1 
03550 

1 
03560 

1 
03570 

1 



+ 


00 


04700 




+ 


74 


77600 




+ 


74 


77600 




+ 


57 


03551 




- 


00 


00000 


LOCSET 


- 


00 


12470 




- 


00 


00000 




+ 


74 


00160 


NEW ST 


+ 


14 


03540 




+ 


74 


00220 




+ 


74 


00100 




+ 


74 


00150 





CLA 


MZE 


PNC 


7760 


PNC 


7760 


TRA 


New ST 


MZE 





MZE 


1247 



PNC 


C 


PNW 


L0CSET 


PNC 


L 


PNC 


CR 


PNC 


F 



To set location counter^-^or 
storage of station datL K:r J 
from this tape for program 
II (dynamic heights) 
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PROGRAM TITLE: 



SPECIFIC VOLUME ANOMALY 



ABSOLUTE 








LOCATION 






LOCATION 


S 


OPRN 


ADDRESS 


SYMBOL I 


3 OPRN 


ADDRESS REMARKS 


03600 


+ 


72 


00370 


START 


TYC 


LS 


1 


+ 


72 


00100 




TYC 


CR 


03610 


+ 


72 


00100 




TYC 


CR 


1 


+ 


00 


00600 




CLA 


STATION PRINT OUT STATION 


03620 


+ 


72 


77600 




TYC 


7760 


1 


+ 


72 


00330 




TYC 


FS 


03630 


+ 


71 


77640 




RDY 


7764 WAIT FOR 4 CHARACTERS 


1 


+ 


60 


00730 




ST0 


STN. NO. 


03640 


+ 


57 


04520 




TRA 


PATCH 4 


1 


+ 


72 


77600 




TYC 


7760 


03650 


+ 


00 


00620 




CLA 


HEAD + 1 


1 


+ 


72 


77600 




TYC 


7760 


03660 


+ 


00 


00630 




CLA 


HEAD + 2 


1 


+ 


72 


77600 




TYC 


7760 


03670 


+ 


00 


00640 


DATA 


CLA 


LBIND\ Input Depth Using 


1 


+ 


57 


05000 




TRA 


INPUT) AN002 


03700 


+ 


57 


00030 




TRA 


0003 Error Return 


1 


+ 


43 


00000 




XAR 


Convert to Fl. Pt. 


03710 


+ 


00 


00640 




CLA 


LBIND 


1 


+ 


43 


00000 




XAR 




03720 


+ 


45 


00000 




FNM 




1 


+ 


57 


04720 




TRA 


PATCH 9 


03730 


+ 


00 


00650 




CLA 


LB INT Input Temp. 


1 


+ 


57 


05000 




TRA 


INPUT 
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PROGRAM TITLE: 



SPECIFIC VOLUME ANOMALY 



ABSOLUTE 








LOCATION 


S 


OPRN 


ADDREJ 


03740 


+ 


57 


00030 


1 


+ 


43 


00000 


03750 


+ 


00 


00650 


1 


+ 


43 


00000 


03760 


+ 


45 


00000 


1 


+ 


35 


01600 


03770 


+ 


00 


00660 


1 


+ 


57 


05000 


04000 


+ 


57 


00030 


1 


+ 


43 


00000 


04010 


+ 


00 


00660 


1 


+ 


43 


00000 


04020 


+ 


45 


00000 


1 


+ 


35 


00760 


04030 


+ 


64 


01400 


1 


+ 


66 


01500 


04040 


+ 


06 


77600 


1 


+ 


05 


77620 


04050 


+ 


35 


77740 


1 


+ 


07 


77640 


04060 


+ 


06 


77660 


1 


+ 


07 


77740 


04070 


+ 


04 


77700 


1 


+ 


07 


77740 



LOCATION 



S OPRN 


-■ ADDRESS 


REMARKS 


TRA 


0003 


Error Return 


XAR 




Convert to Fl. Pt. 


CLA 


LB INT 




XAR 






FNM 






FST 


t 




CLA 


LB INS 


Input Salinity 


TRA 


INPUT 




TRA 


0003 




XAR 






CLA 


LB INS 


Convert to Fl. Pt. 


XAR 






FNM 






FST 


s 


Finished Input 


CTL 


BL0CK 1 


\ Read constants into 


CTV 


BL0CK 2 


J L + V Loops 


FSB 


7760 


s - 0.030 


FDV 


7762 


s = s - 0.030 
1.805 


FST 
FMP 


7774 
7764 


Note s is salinity input, 
S is chlorinity 
.0000398S 


FSB 


7766 




FMP 


7774 


S (.0000398S - .00157) 


FAD 


7770 




FMP 


7774 


S (.0000398S 2 - .00157S 



+ 1.4708) 
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PROGRAM TITLE: 



SPECIFIC VOLUME ANOMALY 



ABSOLUTE 








LOCATION 


S 


OPRN 


ADDREi 


04100 


+ 


04 


77720 


1 


+ 


35 


01000 


04110 


+ 


00 


00700 


1 


+ 


42 


04121 


04120 


+ 


64 


01600 


1 


+ 


66 


00000 


04130 


+ 


57 


77620 


1 


+ 


60 


77670 


04140 


+ 


00 


04121 


1 


+ 


01 


11470 


04150 


+ 


42 


04121 


1 


+ 


00 


77640 


04160 


+ 


01 


00670 


1 


+ 


42 


77641 


04170 


+ 


57 


04121 


1 


+ 


64 


01700 


04200 


+ 


66 


02000 


1 


+ 


57 


77600 


04210 


+ 


07 


77760 


1 


+ 


35 


00710 


9422Q 


+ 


64 


02100 


1 


+ 


66 


02200 



LOCATION 

SYMBOL S OPRN 



ADDRESS 



REMARKS 



CTV 



STUP 



0UT 



MAIN 1 



FAD 
FST 

CIA 
STA 
CTL 
CTV 
TRA 
ST0 
CIA 
ADD 
STA 
CIA 
ADD 
STA 
TRA 
CTL 
CTV 
TRA 
FMP 
FST 
CTL 
CTV 



7762 
SIGMAO 



r P = -0.069 + 1.4798S 
- 0.00157S 2 + .0000398S 3 



LC0N^ Initialize addresses 

CTV 

t 

C 3 

7762 

7767 

CTV 

CTER1 

CTV 

7764 

R2.0 

7764.1 

CTV 

BL0CK 3 

BL0CK 4 

7760 

7776 

ERAS 

BL0CK 5 

BL0CK 6 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



04230 

1 
04240 

1 
04250 

1 
04260 

1 



+ 
+ 
+ 
+ 

+ 
+ 
+ 
+ 



57 
64 
57 
64 
66 
57 
04 
35 



77600 
02300 
77600 
02500 
02600 
77600 
01220 
01220 



04270 


+ 


64 


02700 


1 


+ 


66 


03000 


04300 


+ 


57 


77600 


1 


+ 


04 


01220 


04310 


+ 


35 


01220 


1 


+ 


07. 


00740 


04320 


+ 


35 


01220 


1 


+ 


30 


00540 


04330 


+ 


06 


01220 


1 


+ 


07 


01200 


04340 


+ 


35 


01260 


1 


. + 


64 


03100 


04350 


+ 


57 


77600 


1 


+ 


64 


03300 



MAIN 2 



MAIN 3 



MAIN 4 



MAIN 5 



TRA 


7760 


CTL 


BL0CK 7 


TRA 


7760 


CTL 


BL0CK 9 


CTV 


BL0CK 10 


TRA 


7760 


FAD 


SUM 


FST 


SUM G 



SUM G - tC+t 10 " 4 pD t - 10 ~ 8 

1.5p 2 t + <fe - 28 f-E„ + 10" 4 



10 L 



3 



MAIN 6 



CTL 


BL0CK 11 




CTV 


BL0CK 12 




TRA 


7760 




FAD 


SUM 




FST 


SUM 




FMP 
FST 


P 

SUM ^ J 




FCA 
FSB 


10p5 

SUM 10" 5 


-io-*p{ } 


FMP 


ALPHAST0 




FST 


ALPHASTP 10 5 


°<s,t,p 


CTL 


BL0CK 13 




TRA 


7760 




CTL 


BL0CK 15 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS 



REMARKS 



04360 
1 

04370 
1 

04400 
1 

04410 

1 
04420 

1 
04430 

1 
04440 

1 
04450 

1 
04460 

1 
04470 

1 
04500 

1 



+ 

+ 
+ 

+ 
+ 
+ 

+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 



57 
57 
00 
77 
72 
72 

72 
57 
07 
04 
35 
30 
05 
35 
57 



77600 
06500 
04010 
04371 
00370 
00100 

00330 
04540 
00100 
00120 
00710 
00120 
00710 
01200 
04231 



MAIN 7 



PATCH 1 



TRA 7760 

TRA PRINT 10 " 5 Q in k reg. 

PZE 04010 use AN-015 to output 

HTR 

TYC LS 

TYC CR Space down for next line 
of data 

TYC FS 

TRA PATCH 5 

FMP 10M 3 

FAD FL 1 

FST ERAS 

FCA FL 1 

FDV ERAS 

FST ALPHAST0 

TRA MAIN 2 



+ 


35 


77760 


PATCH 


2 


FST 


7776 1-A t + B t ( C 


+ 


30 


01000 






FCA 


SIGMA 


+ 


04 


77720 






FAD 


7772 ^"o + 0.1324 


+ 


57 


04210 






TRA 


MAIN 1 


+ 


35 


77760 


PATCH 


3 


FST 


7776 


+ 


34 


00740 






FCS 


P 



Co- 



0.1324) 
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PROGRAM Til 


!LE: 


SPECI] 


FIC VOLUME 


! ANOMALY 








ABSOLUTE 








LOCATION 








LOCATION 


S 


OPRN 


ADDRESS 


SYMBOL ! 


S OPRN 


ADDRESS 


REMARKS 


Q4510 


+ 


07 


77760 




FMP 


7776 




1 


+ 


57 


77630 




TRA 


7763 




04520 


+ 


74 


77600 


PATCH 4 


PNC 


7760 


Punch Out 


1 


+ 


74 


00100 




PNC 


C/R 


STN N0 


04530 


+ 


00 


00610 




CLA 


HEAD 




1 


+ 


57 


03641 




TRA 


0364.1 




04540 


+ 


00 


04740 


PATCH 5 


CLA 


PUNCH p 


Punch out p 

1 


1 


+ 


74 


77600 




PNC 


7760 


\ 
i 


04550 


+ 


74 


00100 




PNC 


C/R 




1 


+ 


00 


04750 




CLA 


PUNCH p+1 and its exponent 


04560 


+ 


74 


77600 




PNC 


7760 




1 


+ 


74 


00100 




PNC 


C/R 




04570 


+ 


40 


00000 




N0P 






1 


+ 


00 


01300 




CLA 


DELTA 


Punch out O 


04600 


+ 


74 


77600 


PATCH 6 


PNC 


7760 


1 


1 


+ 


74 


00100 




PNC 


C/R 


</ 


04610 


+ 


00 


01310 




CLA 


DELTA+1 


and its exponent 


1 


+ 


74 


77600 




PNC 


. 7760 




04620 


+ 


74 


00100 




PNC 


CR 




1 


+ 


57 


03670 




TRA 


DATA 




04630 


+ 


72 


00100 


PATCH 7 


TYC 


CR 




1 


+ 


72 


00100 




TYC 


CR 




04640 


+ 


57 


03520 




TRA 


NEW ST 




1 


+ 


00 


04700 


PATCH 8 


CLA 


MZE 
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PROGRAM TITLE: 



SPECIFIC VOLUME ANOMALY 



ABSOLUTE 
LOCATION 


S 


OPRN 


ADDRESS 


LOCATION 
SYMBOL S 


OPRN 


ADDRESS 


04650 




+ 


74 


77600 




PNC 


7760 


1 




+ 


00 


04710 




CLA 


ENDER 


04660 




+ 


74 


77600 




PNC 


7760 


1 




+ 


74 


00160 




PNC 


C 


04670 




+ 


74 


00240 




PNC 


H 


1 




+ 


77 


04671 




HTR 


0467.1 


04700 




- 


00 


00000 


MZE 






1 




- 


00 


00000 








04710 




- 


72 


25700 


ENDER 






1 




+ 


32 


65440 








04720 




+ 


35 


04740 


PATCH 9 


FST 


PUNCH p 


1 




+ 


35 


00740 




FST 


P 


04730 




+ 


57 


03730 




TRA 


0373o0 


1 
















04740 
1 










PUNCH p \ 






04750 










i 






1 










j 






0500-0647 

Input Subroutine 






INPUT / 


DEF 


0500 


0650-1146 

Output Subroutine 






PRINT 


DEF 


0650 



REMARKS 



140 g cells, (to 0640) 
AN002 spaced to 
0650 



260 cells (to 1130) AN015 
spaced to 1146 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



11470 

1 
11500 

1 
11510 

1 
11520 

1 
11530 

1 
11540 

1 
11550 

1 
11560 

1 
11570 

1 
11600 

1 
11610 

1 
11620 

1 



00 00000 
00 00100 



DEC 



+0.0010843 



DEC 



-0.098185 



DEC 



+4.7867 



DEC 



+0.01667 



DEC 



-0.8164 



HECOMP II USERS' PROGRAM NO. 1125 33 




PROGRAM TITLE: SPECIFIC VOLUME ANOMALY 

ABSOLUTE LOCATION 

LOCATION S OPRN ADDRESS SYMBOL S OPRN ADDRESS REMARKS 

11630 

1 
11640 DEC 

1 
11650 

1 
11660 

1 
11670 

1 
11700 DEC +0o004 

1 
11710 

1 
11720 DEC -0.551 

1 
11730 

1 
11740 DEC +28.33 

1 
11750 

1 

11760 

1 
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PROGRAM TITLE: 

ABSOLUTE 
LOCATION S 

11770 

1 
12000 

1 
12010 

1 
12020 

1 
12030 

1 
12040 

1 
12050 

1 
12060 

1 
12070 

1 
12100 

1 
12110 

1 
12120 

1 



SPECIFIC VOLUME ANOMALY 

LOCATION 
OPRN ADDRESS SYMBOL S OPRN 



ADDRESS REMARKS 



DEC 



DEC 



DEC 



DEC 



DEC 



-0.158 



+9.50 



+105.5 



+0 



.04 -"N 



-2.72 



RECOMP II USERS' PROGRAM NO. 1125 35 



PROGRAM TITLE: SPECIFIC VOLUME ANOMALY 

ABSOLUTE LOCATION 

LOCATION S OPRN ADDRESS SYMBOL S OPRN ADDRESS REMARKS 

12130 '^ 

/ 

12140 DEC +147 . 3 ^ 

a 
I 

i ; 



./ 



DEC +0.02 ^ x 



12150 

1 
12160 

1 
12170 

1 
12200 

1 
12210 

1 
12220 DEC -0.87 

1 
12230 
■ ■ 1 
12240 DEC +32.4 

1 
12250 

/ 

1 
12260 

1 
12270 



